home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / lisp / stk-3.002 / stk-3 / STk-3.1 / Contrib / STk-wtour / lessons / canvas-draw.stk < prev    next >
Encoding:
Text File  |  1995-12-13  |  208 b   |  14 lines
  1. ;;; Drawing in a Canvas
  2. ;;;  (draw with mousebutton 1)
  3.  
  4. (pack (canvas '.c1)
  5.       :fill "both"
  6.       :expand "yes")
  7.  
  8. (bind .c1 "<B1-Motion>" (lambda (x y)
  9.               (.c1 'create 'rectangle x y x y :width 5)))
  10.  
  11.  
  12.  
  13.  
  14.